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{C IDENT ('V04-000'), 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH TH R SUCH LICENSE AND WITH THE 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
S_THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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* TRANSFERRED. 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT 
AND SHOULD NOT BE CONSTRUED AS A COMMI 


TO_ CHANGE WITHOUT NOTICE 
TMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: VAX/VMS EDF (EDIT/FDL) UTILITY 


ABSTRACT: This facility is used to create, modify, and optimize 
FDL specification files. 


ENVIRONMENT: NATIVE/USER MODE 


SEAEGS 


S8SS8S8sssssss 


AUTHOR: Ken F. Henderson Jr. 

33 CREATION DATE: 27-Mar-1981 
34 MODIFIED BY: 

5 v03-007 KFHOO07 Ken Henderson 10 Sep 1983 
004s Support for named UICs. 

$ v03-006 KFHO006 Ken Henderson 8 Aug 1983 
nt Changes for seperate compilation. 
0049 v03-005 KFHOOOS Ken Henderson 30 Jul 1983 
0031 Added DEFERRED_WRITE. 

26 v03-004 KFHO004 Ken Henderson 26 Apr 1983 
0034 Added STRING22. 

55 v03-003 KFHOO03 Ken Henderson 14 Apr 1983 
6026 Added LEVEL1_RECORD_COUNT. 
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v03-002 KFHO002 en Henderson 31 Jan 1983 
changed re setorenes of FOLSTYPE to 


v03-001 KFHOO001 Ken Henderson 8 Sept 1982 
Removed some definitions no longer 
needed after database reorganization. 
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MERIC ("LIBS:EDFTYPE'), 

: EDF CON 
BS: TDLPARGEF 


MODULE EDFTYPE; 
TYPE 
{ + 
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. THE ORDERRING OF THE ELEMENTS IN ‘PRIMARY TYPE" AND 5 OF eueany TYPE’ * 

* MUST BE IDENTICAL TO sat ORDERRING OF ELEMENTS IN THE FILE * 
* ""<FDL.SRC>FDLPARDEF . * 
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These are the Primary Attributes. 


PRIMARY_TYPE = ( 
DUMMY_PRIMARYS, 


ACCESS, 


ACL, 
ANALYSIS —OF AREA, 
ANALYSIS"OF KEY, 
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Ae are the Secondary Attributes. 
SECONDARY_TYPE = ( 
{ RESERVE 0 } DUMMY _SECONDARYS, 
{ ACCESS PRIMARY } 
bet 
RECORD 10$, 
UPbAteee 
{ ACL PRIMARY } 
ENTRY, 
{ ANALYSIS_OF_AREA PRIMARY } 
RECLAIMED_SPACE, 
{ ANALYSIS_OF_KEY PRIMARY } 
DATA: keyee COMPRESSION 
DATA_RECORD DNCOMPRESSLONS, 


PATAD “RECORD” COUNT 
DATA SPACE PacturiéD, 
Dever ONS, 


DUPLICATES PER_SIDR, 
INDEX_COMPRESSTONS, 
INDEX"FILLS, 
INDEX" SPACE aQCCUPIED, 
ELT RECORD COUN 
MEARE LORTA ENGTH, 
MEAN ~TNDER” EeNeTh, 
RANDOM_ACCESSES, 


RANDOM~ Ns R 
SEQUENTIAL ACCESSES, 
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{ AREA PRIMARY } 


ALLOCATIONS, 
BEST TRY CONTIGUOUSS, 
BUCKET STZ 


CONT s 
EXACT Co a 
EXTENSIONS, 
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GLOBAL _BUFFER_COUNT, 
MT_BLOCK $1 E 
MT~CURRERT_POSITION, 
MT“NOT_EOF 
MT“PROTECTION 
MT"OPEN. REWIND 
MT"CLOSE_REWIND 


MAR_RECORD NUMBER, 
WAXTMIZE VERSION, 


NOBACKUP, 

NON_FILE STRUCTURED, 
OUTPUT FILE PARSE, 
ORGANIZATION, 

OWNER, 

PRINT ON CLOSE, 
PROTECTION, 
READ CHECK, 


REVI 
SEQUENTIAL_ONLY, 
SUBMIT_ON_CLOSE, 
SUPERSEDE, 
TEMPORAR 


Y 
TRUNCATE_ON_CLOSE, 
USER_FILE_OPEN, 
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WINDOW SIZE, 
WRITE_CHECK, 
{ JOURNALING PRIMARY } 
AFTER_IMAGE, 
AF TER-NAME , 
AUDIT “TRAIL, 
AUDIT" NAME 
BEFORE_IMAGE, 
25 EFORE NAME 
: RECOVERY_UNIT, 
2 { KEY PRIMARY } 
CHANGES 
DATA_AREA, 
DATAWFILL 
DATA-KEY COMPRESSION 
DATA-RECORD_ COMPRESSION, 
69 DUPLICATES, 
70 NDEX_AREA 
71 INDEX” COMPRESSION, 
7 INDEX” FILL 
7 LEVELT_INDEX_AREA, 
7% NAMES, 
75 LL_KEY, 
7 NULL” VALUE, 
7 PROLOGUE 
j SEG_LENGTH 


Pr Lr OOM PM LPM CAVOMVWOOI OMA LAOVLVDA LAVA OV OMVALMAVLMAVOMVLMVLMVOM MOM OMLOML OMIM OOM OOOO LOLOL OOO 


teal —_— ee ee ee ee ee ee ee ae ee ee ee ae ae ae ee ae ae ee ae ee ae ee ae ee ae ae Ged ae Ged ee ed ee ee 


as 
om | 
o~ 
© } 
a- | 
ee i 
% 
<x 
a 
. 
iv) 
a 
> 
- 
ka 
a 
iv¥} 
Lo | 
VY 
~~ 
nw 
Nm. 
‘iu j 
Toa 
eww = | 
ow i 
> | 
[+ 4 
— tad 
or 
um 
ox 
an 
= 
-> 
—A 
ie 4 
=m 
Ie 
>a 
om 
-wv 
cvuco 
rrr” 
om 
o- 
wv 
coco 
on 
-— 
‘8 
aa 
mo eo 1 
are 
2 
- 
— 
aw 
~ 
a 
ow s 
a 6 Br 
-a —< 
24 bd Oo 
Ou = —_ 
an Z2ue~- a 
Cc <= & we w 
= Qw ¢t ar _ 
~ mow « ._ ez ee 
wn —<xoOr- w wD we Wwe 
- wea 3 - ss & | vwuw 
=) VvVaorfw (ve) -_—= -<coe “aw — © 6 2 ee ee £8 48 28 Fee 48 Fe *e 28 *e 
oecZzarn a JOr aw > Da trv 7 fete rece cece te te sO CUM TNOR.DOOOMTINO 
o _~<xzoo- ww5e7>aw wot -. taw © KNMTNOR DOO KKK KKK RK KK KUT 
i @Mvwvuw ougcaa7a7z ane = awmun ° ° eeeeeeeeeeeeeeeeeeee 
& ws = eeeeeeresee#srfmc§c«setee*ee#krmie#se#e#fe#rkee#e#e#feee#te#t# ee 
4 a “~ o~ a Ce ae eel el el el el el cl oll cl el cel ol ek ek ee ee el el 
> 
” ad - HHonnnnnnhnnnnnnnnnnnnnnnnu 
oo « > a * 
A Z F S 
—) 
= a w 
4 a _ -~ 
< a < 2 
a a 
eo 4 = mt — ee eee 
Om or Dek ek eek eek eel ae eel ee ee ae LL LL 
a w z 
ras = ~ = Bee eee eee ee 888383835335 
f+ 4 ” nm 
ad ‘se? ad 
_ 2. © - © ‘ - —* 
> 
- eo TUN TMNOR DOOM MUM TNOR. DOOK MUM TNO DOOM UMTIN 
o oOo Peat ap tat t-te baba deter tty tia at alalatatatala 
PLVESVESVELV ESV ELN ESD ESD OLD ELD ELD ELD ESD ISD ELD PD ESR ELD BOD PFD PFD EFD PFD ELD PFD PFD PFD FD OT PFD 
Wr COOOCOCOCOCOCSCOSOSOOOCOOSOSOSCOSOOSOSOOSOOOSCOSOOOSOOOOOOOOOSOOOOOO OOOO OOOO 


Co 
" 
=" 
< 
v 


E 
Vv 


3 


5 
2 
4 


poe efofolololelolalolelelolelo) 
= 


ES Se rate 


OOQCCOCCCOOOoooooooooooooooo 
OUSWN OOO 


WWAWANAWA 
SQN 


oon 


SESESEEESE 


3 


: 


Fans 


LONG 
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= PACKED 


ARRAY 


SUB 
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=32768. 32767; 


RRAY (O..2) OF LONG; 
QWORD ,DWORD); 


XY_PLOT_TYPE = ARRAY (0..12, 0,.31] OF BYT 
XYTARRAY_TYPE = ARRAY C0..10, 0..(BKTSC_MA 


OF 
OF 


OF C 


OF 


E: 
XBKTSIZ=1)] OF BYTE; 
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VUE 
CO CONOM 


DESCRIPTOR 


CTRL_ARRAY 


LINE_OBJECT = RECORD 


ING_PTR 
CRI 


BOOCE_PTR 
STR24-PTR 
SIGARR 
MECHARR 


QTAB_ENTRY 


PTOR_P 
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Source Listing 


= PACKED ARRAY [SUB80] OF CHAR; 
= PACKED ARRAY [SUB1 i OF CHAR: 
= PACKED ARRAY [SUB255] OF CHAR: 
= PACKED RECORD 
DSC$W_LENGTH WORD; 
DSCS$B_DTYPE : BYTE 
DSC$B~CLASS : 
DSCSA : 
END; 


= CVOLATILE] PACKED ARRAY [O0..31] OF BOOLEAN; 


" BYTE: 
“POINTER UNSAFE J*STRINGZSS; 
OBJECT_TYPE LINE_OBJECT_TYPE; 
FORE “LINE_OBJECT; 
“LINE OBJECT; 
COMMENT DESCRIPTOR; 
STRING DESCRIPTOR: 
PRIMARY : PRIMARY_TYPE; 
PRINUM LONG; 
SECONDARY SECONDARY _TYPE; 
SECNUM LONG; 
QUALIFIER ONG; 
NUMBER ONG: 
SWITCH BOOLEAN; 
OWNER_UIC ONG; 
PROT_MASK CTRL_ARRAY; 
FID1 LONG; 
F1Dg LONG: 
FID LONG: 
END; 
= *STRING2SS; 
TR = “DESCRIPTOR; 
= “INTEGER; 
= “INTEGER: 
= “LONG; 
= “PRIMARY_TYPE; 
= *SECONDARY_TYPE; 
= “BOOLEAN; 
= *STRING2S: 
= ARRAY (0..9] OF INTEGER; { cond handling signal array } 
. = ARRAY (0..4] OF INTEGER; { cond handling mechanism array } 
= RECORD 
ANSWER_CLASS : INTEGER: 
DEFAULT_OK : BOOLEAN; 
DEFAULT : INTEGER: | 
LOW BOUND : INTEGER: 
HIGRA_BOUND : INTEGER; 
KEY TABLE : INTEGER; | 
STATE_TABLE : INTEGER: 
END; | 
} 
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E F TYPE 8 ie -1984 VAX-11 Pascal v2. wo 
vit Source Listing ~3ep-1984 99: $§: 13 DISKSVMSMA TER: Bebe ch SRCIJEDFTYPE.PAS;1 fag, | 
0 3 TYPE = (VOLATILE) ARRAY (0. sf DL$K_BLOC KAEND] OF OF AkOns: 
? FOL VARYING = VARYING CEDFSK_TEMP ARY ING. SIZE 

bese t0 ) 
04 4 : FDL CALL INTERFACE CONTROL FLAGS *) 

58 
0459 $B1T1 = CBIT(1),UNSAFE] BOOLEAN; 
9461 FDL2$TYPE = RECORD CASE INTEGER OF 

6¢ 1: CFDLS_ FDLDEF_BITS : CBYTE(1)] RECORD END; 
Bibs 2: (EBL Sv -SIGNAL = CPOS(0)] $8111; (* SIGNAL ERRORS DON'T RETURN *) 

65 FDLS$VFDL_STRING : CPOS(1) S811; (* MAIN FDL SPEC IS A CHAR STRING *) 
04 FDLSV-DEFAULT STRING : CPOS(2)] $B1T1; (* DEFAULT FDL SPEC IS A CHAR STRING *) 
046 FDLSV-FULL_OUTPUT : CPOS(3)] $BI1T1; (* PRODUCE A ‘COMPLETE’ FDL SPEC *) 
0468 FDLSV_SCALCBACK : CPOS(4)] $BIT1: (* USED BY EDF ON INPUT (DEC ONLY) *) 
0470 END; 
0471 
047¢ END. 
047 { End of file SRC$:EDFTYPE.PAS } 
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COMMAND QUALIFIERS 

PASCAL /MACHINE /NODEBUG/NOCHECK/LIS=LISS$S:EDFTYPE/OBJ=OBJS:EDFTYPE MSRCS:EDF TYPE 

K=(NOBOUNDS ghOTRA BRAC) NOOVERF LOW,NOPOINTERS , NOSUBRANGE ) 
/SEBUGS (NOS TRG 
7ENVIR TBeSSBDOA feet Feor, ,08,J6DF TYPE. PEN; 1 
Rat laae ota 

TMOeROSS eatin ie ory =80 7 NOG. FLOATING /MACHINE CODE /NOOLD_VERSION /OPTIMIZE /NOSTANDARD /WARNINGS 

COMPILER INTERNAL TIMING 


Fau 
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Phase 

mide gy) ee ee, 

Source Anal ysis 5 

source List 8 

Tree a pl ion 

Flow Analysis 8 

Profit Analysis 

contest roe ysis 
0 
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Pack es 

Code Selection 

Final g 
TOTAL 3 


-ccneceneense 
Oooooooo°coeow 


Sooooooooooonm 
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COMPILATION STATISTICS 


CPU Time: 00:03.5 (8017 Lines/Minute) 
Elapsed Time: 99515. “a 
Page Faults: 


Compilation Complete 
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